preparing environment

setwd("G:/Meu Drive/5. Cursos/Programacao/Curso R Udemy/bootcampR")

rm(list = ls())

library(tidyverse)
library(plotly)
pl <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point()

print(pl)

gpl <- ggplotly(pl)

print(gpl)
NULL
LS0tDQp0aXRsZTogIm92ZXJ2aWV3IG9mIHBsb3RseSBhbmQgaW50ZXJhY3RpdmUgdmlzdWFsaXphdGlvbnMiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIyMgcHJlcGFyaW5nIGVudmlyb25tZW50DQpgYGB7cn0NCnNldHdkKCJHOi9NZXUgRHJpdmUvNS4gQ3Vyc29zL1Byb2dyYW1hY2FvL0N1cnNvIFIgVWRlbXkvYm9vdGNhbXBSIikNCg0Kcm0obGlzdCA9IGxzKCkpDQoNCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShwbG90bHkpDQoNCmBgYA0KDQpgYGB7cn0NCnBsIDwtIGdncGxvdChtdGNhcnMsIGFlcyhtcGcsIHd0KSkgKw0KICBnZW9tX3BvaW50KCkNCg0KcHJpbnQocGwpDQpgYGANCmBgYHtyfQ0KZ3BsIDwtIGdncGxvdGx5KHBsKQ0KDQpwcmludChncGwpDQpgYGANCg0KDQoNCg==